100 PRINTCHR$(142):POKE53280,2:POKE53281,2
110 REM BIG TIME 2.0 NON-STOP
120 REM ORIGINALLY BY SCOTT MAUCUS
130 REM MODIFIED BY J. COURBOIS
140 DIMA$(9)
150 FORI=0TO9
160 REM SET UP A DIGIT
170 FORJ=1TO5
180 READA$
190 REM   MOVE CURSOR DOWN & 3 LEFT
200 A$(I)=A$(I)+A$+"[157][157][157]"
210 NEXTJ
220 READA$
230 REM   MOVE CURSOR RIGHT & 5 UP
240 A$(I)=A$(I)+A$+"[145][145][145][145][145]"
250 NEXTI
260 REM ASK FOR TIME
270 PRINT"[147]                  MINUTES"
280 PRINT"            HOURS[192][192][174] [221] [176][192][192]SECONDS"
290 PRINT"                   [221] [221] [221]"
300 PRINT"PLEASE INPUT TIME  HHMMSS[144]":PRINTSPC(17);
310 INPUTA$:A$=LEFT$(A$+"000000",6)
320 REM SET TIME HERE
330 TI$=A$
340 REM DRAW "TIME" WORD
350 PRINT"":GOSUB1270
360 REM DRAW BORDER BOX
370 GOSUB1100
380 REM MAIN LOOP
390 REM   POSITION CURSOR @ 1 ST DIGIT
400 PRINT"";
410 REM   DRAW NUMERALS FOR TIME
420 FORI=1TO6
430 PRINT"[144]"A$(VAL(MID$(TI$,I,1)));
440 REM INSERT COLON TWEEN HH-MM,MM-SS
450 IFI=2ORI=4THENPRINT"[215][157][215][145][145][145][145][144]";
460 NEXTI
470 IFRIGHT$(TI$,2)<>"00"THEN400
471 IFRIGHT$(TI$,4)="0000"THENLL=32:SS=12:GOTO475
472 LL=128:SS=5
475 POKE53280,0:POKE53281,0:FORK=1TO500:NEXT:POKE53280,2:POKE53281,2
478 S=54272:FORK=STOS+24:POKEK,0:NEXT:POKES+24,15:POKES+1,30:POKES+5,0
479 POKES+6,15*16+SS:POKES+4,LL+1:POKES+4,LL:FORKK=1TO500:NEXT:GOTO400
480 REM DIGITS DATA STRINGS
490 DATA"[206][183][205]"
500 DATA"[165] [167]"
510 DATA"[165] [167]"
520 DATA"[165] [167]"
530 DATA"[165] [167]"
540 DATA"[205][175][206]"
550 DATA" [206][165]"
560 DATA"  [165]"
570 DATA"  [165]"
580 DATA"  [165]"
590 DATA"  [165]"
600 DATA" [175][204]"
610 DATA"[206][183][205]"
620 DATA"  [167]"
630 DATA" [175][206]"
640 DATA"[206]  "
650 DATA"[165]  "
660 DATA"[204][175][175]"
670 DATA"[206][183][205]"
680 DATA"  [167]"
690 DATA" [175][206]"
700 DATA"  [205]"
710 DATA"  [167]"
720 DATA"[205][175][206]"
730 DATA"[165] [165]"
740 DATA"[165] [165]"
750 DATA"[165] [165]"
760 DATA"[183][183][207]"
770 DATA"  [165]"
780 DATA"  [165]"
790 DATA"[207][183][183]"
800 DATA"[204][175] "
810 DATA"  [205]"
820 DATA"  [167]"
830 DATA"  [167]"
840 DATA"[205][175][206]"
850 DATA"[206][183][205]"
860 DATA"[165]  "
870 DATA"[204][175] "
880 DATA"[165] [205]"
890 DATA"[165] [167]"
900 DATA"[205][175][206]"
910 DATA"[207][183][208]"
920 DATA"  [206]"
930 DATA" [206] "
940 DATA" [165] "
950 DATA" [165] "
960 DATA" [165] "
970 DATA"[206][183][205]"
980 DATA"[165] [167]"
990 DATA"[205][175][206]"
1000 DATA"[206][183][205]"
1010 DATA"[165] [167]"
1020 DATA"[205][175][206]"
1030 DATA"[206][183][205]"
1040 DATA"[165] [167]"
1050 DATA"[205][175][186]"
1060 DATA"  [167]"
1070 DATA"  [167]"
1080 DATA"[205][175][206]"
1090 REM WRITE BORDER FOR DIGITS
1100 PRINT" ";
1110 FORI=1TO37:PRINT"[175]";:NEXT:PRINT
1120 PRINT"[167][205]"SPC(35)"[206][165]"
1130 FORI=1TO2
1140 PRINT"[167]"SPC(I)"[205]"SPC(35-2*I)"[206]"SPC(I)"[165]"
1150 NEXT
1160 PRINT"[167]   [207]";:FORI=1TO29:PRINT"[183]";:NEXT:PRINT"[208]   [165]"
1170 FORI=1TO8
1180 PRINT"[167]   [165]"SPC(29)"[167]   [165]"
1190 NEXT
1200 PRINT"[167]   [204]";:FORI=1TO29:PRINT"[175]";:NEXT:PRINT"[186]   [165]"
1210 FORI=2TO1STEP-1
1220 PRINT"[167]"SPC(I)"[206]"SPC(35-2*I)"[205]"SPC(I)"[165]"
1230 NEXT
1240 PRINT"[167][206]"SPC(35)"[205][165]"
1250 PRINT" ";:FORI=1TO37:PRINT"[183]";:NEXT:PRINT
1260 RETURN
1270 REM TIME HEADER
1280 PRINT"[147]";
1290 W=10
1300 PRINTSPC(W)"[144][183][183][207][183] [183][207] [167][205]  [206][165] [207][183][183]
1310 [153][166]W)"  FN   FN THEN (null)(null) FN (null)AND
1320 PRINTSPC(W)"  [165]   [165] [167]    [165] [165]
1330 [153][166]W)"  FN  AND(null) THEN    FN (null)ANDAND
1340 RETURN